home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c-part2 / 15120 < prev    next >
Encoding:
Text File  |  1996-08-05  |  3.3 KB  |  179 lines
  1. Path: news.uni-mannheim.de!news
  2. From: luebbeke@zew.de (Michael Luebbeke)
  3. Newsgroups: comp.lang.tcl,comp.unix.programmer,comp.unix.questions,comp.unix.shell,comp.lang.awk,comp.lang.c,comp.lang.perl.misc,comp.programming,comp.software-eng
  4. Subject: Re: Appropriate Tools and Approach for Kill Application
  5. Date: Wed, 17 Apr 1996 19:51:41 GMT
  6. Organization: ZEW Zentrum f. Europ. Wirtsch.-Forschung
  7. Message-ID: <4l2idm$j80@trumpet.uni-mannheim.de>
  8. References: <Pine.SOL.3.91.960417003525.18392A-100000@sun22>
  9. Reply-To: luebbeke@zew.de
  10. NNTP-Posting-Host: mlu.zew.de
  11. X-Newsreader: Forte Free Agent 1.0.82
  12.  
  13. mjw@pobox.com wrote:
  14.  
  15.  
  16.  
  17. >i.e.
  18.  
  19. >kill -n x*
  20.  
  21. >would kill xterm, xrn, xmosaic, etc.
  22.  
  23. Got smthng, quick&dirty programmed, but maybe a start for you:
  24.  
  25. Its from my early programming days, so don┤t wonder ┤bout
  26. root hacking without the use of popular modules like getopt.....
  27. its always spitting out, that processes weren`t killed,
  28. but they are, just ognore it.
  29.  
  30. If anyone is interested, I will do some effort to nicen this stuff up.
  31. email me......
  32.  
  33. -----------------------8<------------------------------>8-----------------------------------------------------
  34. #!/usr/bin/perl
  35. # perl script to kill a spcific program
  36. #
  37.  
  38. $query = 0;
  39. $mode = -1;
  40. $verbose = 0;
  41. $pattern = "";
  42.  
  43.  
  44. for ($in = 0; $in < @ARGV; $in++)
  45. {
  46.  if ($ARGV[$in] =~ /[-\/]v/)
  47.  {
  48.   $verbose = 1;
  49.  }
  50.  if ($ARGV[$in] =~ /[-\/]q/)
  51.  {
  52.   $query= 1;
  53.  }
  54.  if ($ARGV[$in] =~ /[-\/]ma/)
  55.  {
  56.   $mode = 0;
  57.  }
  58.  if ($ARGV[$in] =~ /[-\/]mr/)
  59.  {
  60.   $mode = 1;
  61.  }
  62.  if ($ARGV[$in] =~ /[-\/]mt/)
  63.  {
  64.   $mode = 15;
  65.  }
  66.  if ($ARGV[$in] =~ /[-\/]mk/)
  67.  {
  68.   $mode = 9;
  69.  }
  70.  if ($ARGV[$in] =~ /[-\/][Pp]/)
  71.  {
  72.   $pattern = $ARGV[$in+1];
  73.   if ($verbose == 1)
  74.   {
  75.    print "Looking for pattern: <$pattern>\n";
  76.   }
  77.  } 
  78. } 
  79.  
  80. if ((@ARGV == 0) || (mode == -1) || ($pattern eq ""))
  81. {
  82.  print "KILL: killing processes\nusage: kill [-q] [-v] -m[r|t|k|a] -p
  83. pattern\n";
  84.  print "\t\t-m : r=restart(SIGHUP) t=terminate(SIGTERM)
  85. k=kill(SIGKILL) a = try all\n";
  86.  print "\t\t-q=query\n\t\t-v=verbose\n ";
  87.  exit;
  88. }
  89.  
  90. open(PS, "ps -ax |");
  91.  
  92. while (<PS>)
  93. {
  94.  chop($_);
  95.  $_ =~ s/^\s*//;
  96.  $_ =~ s/\s*$//;
  97.  $_ =~ s/ +/,/o; 
  98.  $_ =~ s/ +/,/o; 
  99.  $_ =~ s/ +/,/o; 
  100.  $_ =~ s/ +/,/o; 
  101.  @procs = ($pid, $tty, $t, $time, $name) = split(/,/, $_);
  102.  &kill_pattern($pattern, $pid, $name, $time, $tty);
  103. }
  104.  
  105. sub kill_pattern
  106. {
  107.  ($pattern, $pid, $name, $time, $tty) = @_;
  108.  
  109.  if ($$ eq $pid)
  110.  {
  111.   return;
  112.  }
  113.   
  114.  if ($name =~ /$pattern/)
  115.  {
  116.   if (($query ==1) || ($verbose == 1))
  117.   {
  118.    print "Kill <$name> PID <$pid> Time <$time> TTY <$tty> ";
  119.   }
  120.   if ($query == 1)
  121.   { 
  122.    print " Should I kill it? ";
  123.    if (<STDIN> =~ /[NnQq]/)
  124.    {
  125.     return;
  126.    }
  127.   }
  128.   
  129.   if ($mode == 0)
  130.   {
  131.    print "Sending HUP ...";
  132.    if ((kill(1 , $pid) == 0) || (&test_kill($pid) == 0))
  133.    {
  134.     print "Sending TERM ...";
  135.     if ((kill(15 , $pid) == 0) || (&test_kill($pid) == 0))
  136.     {
  137.      print "Sending KILL ...";
  138.      if ((kill(9 , $pid) == 0) || (&test_kill($pid) == 0))
  139.      {
  140.       print " can't kill it.\n";
  141.       return;
  142.      }
  143.     }
  144.     print " ... OK.\n";
  145.    }
  146.   }
  147.   else
  148.   {
  149.    print "Sending Signal <$mode> ...";
  150.    if ((kill($mode, $pid) == 0) || (&test_kill($pid) == 0))
  151.    { 
  152.     print " ... no success.\n";
  153.     return;
  154.    }
  155.    print " ... OK.\n";
  156.   }
  157.  } 
  158.  return;
  159. }
  160.  
  161. sub test_kill
  162. {
  163.  $p = $_[0];
  164.  open(TEST, "ps -p $p |");
  165.  @t = <TEST>;
  166.  close(TEST);
  167.  
  168.  foreach $i (@t)
  169.  {
  170.   if ($i =~ /^\s*$p/)
  171.   {
  172.    return 0;
  173.   }
  174.  }
  175.  return 1;
  176. }
  177.  
  178.  
  179.